home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / actpack / actdemo.dir / 00057_Act 2.ls < prev    next >
Encoding:
Text File  |  1995-11-15  |  562 b   |  30 lines
  1. global gNext
  2.  
  3. on mouseDown
  4.   puppetSound("MoreB")
  5.   puppetSprite(1, 1)
  6.   set the castNum of sprite 1 to 39
  7.   updateStage()
  8.   startTimer()
  9.   repeat while the timer < 15
  10.     nothing()
  11.   end repeat
  12.   set the castNum of sprite 1 to 91
  13.   updateStage()
  14.   startTimer()
  15.   repeat while the timer < 15
  16.     nothing()
  17.   end repeat
  18.   set the castNum of sprite 1 to 39
  19.   updateStage()
  20.   startTimer()
  21.   repeat while the timer < 15
  22.     nothing()
  23.   end repeat
  24.   set the castNum of sprite 1 to 91
  25.   updateStage()
  26.   puppetSprite(1, 0)
  27.   set gNext to "fade2"
  28.   go("start demo")
  29. end
  30.